home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Toolbox
/
Visual Basic Toolbox (P.I.E.)(1996).ISO
/
printing
/
vsview17
/
ftoolbox.frm
< prev
next >
Wrap
Text File
|
1994-09-06
|
11KB
|
349 lines
VERSION 2.00
Begin Form ftoolbox
BackColor = &H0080FFFF&
Caption = "Floating Controls"
ClientHeight = 5115
ClientLeft = 300
ClientTop = 1440
ClientWidth = 6030
Height = 5580
Left = 210
LinkTopic = "Form2"
ScaleHeight = 5115
ScaleWidth = 6030
Top = 1065
Width = 6210
Begin PictureBox Picture4
BackColor = &H00C0C0C0&
Height = 1380
Left = 3675
ScaleHeight = 1185
ScaleWidth = 2085
TabIndex = 12
Top = 3465
Width = 2115
Begin vsInForm VSInForm3
BarColor = &H00008080&
BarColorInactive= &H00008080&
BarHeight = 11
CustomFrame = -1 'True
FrameWidth = 1
Left = 315
PictLeft0 = FTOOLBOX.FRX:0000
Top = 660
End
Begin vsViewPort vsViewPort3
BackColor = &H00808080&
Height = 960
Left = 105
Top = 105
VirtualHeight = 0
VirtualWidth = 3270
Width = 1905
Begin PictureBox Picture2
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 435
Index = 5
Left = 105
Picture = FTOOLBOX.FRX:00CA
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 17
Top = 105
Width = 435
End
Begin PictureBox Picture2
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 540
Index = 1
Left = 735
Picture = FTOOLBOX.FRX:03CC
ScaleHeight = 540
ScaleWidth = 540
TabIndex = 16
Top = 105
Width = 540
End
Begin PictureBox Picture2
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 540
Index = 2
Left = 1365
Picture = FTOOLBOX.FRX:06CE
ScaleHeight = 540
ScaleWidth = 540
TabIndex = 15
Top = 105
Width = 540
End
Begin PictureBox Picture2
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 540
Index = 3
Left = 1995
Picture = FTOOLBOX.FRX:09D0
ScaleHeight = 540
ScaleWidth = 540
TabIndex = 14
Top = 105
Width = 540
End
Begin PictureBox Picture2
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 540
Index = 4
Left = 2625
Picture = FTOOLBOX.FRX:0CD2
ScaleHeight = 540
ScaleWidth = 540
TabIndex = 13
Top = 105
Width = 540
End
End
End
Begin PictureBox Picture1
Height = 2850
Index = 1
Left = 2520
Picture = FTOOLBOX.FRX:0FD4
ScaleHeight = 2415
ScaleWidth = 3030
TabIndex = 11
Top = 210
Width = 3270
Begin vsInForm VSInForm1
BarColor = &H00000080&
BarColorInactive= &H00000080&
BarHeight = 13
BarStyle = 2 'NoBorder
ButtonsLeft = 2 '2
CapAlign = 1 'Left Center
CapColor = &H00FFFFFF&
CapColorInactive= &H00FFFFFF&
CustomFrame = -1 'True
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
FrameColor = &H00C0C0C0&
FrameColorInactive= &H00C0C0C0&
FrameStyle = 4 'Raised Frame
FrameWidth = 8
Index = 1
Left = 120
PictLeft0 = FTOOLBOX.FRX:4D8A
PictLeft1 = FTOOLBOX.FRX:4E54
Top = 435
End
End
Begin PictureBox Picture3
BackColor = &H00C0C0C0&
Height = 3270
Left = 105
ScaleHeight = 2790
ScaleWidth = 2190
TabIndex = 2
Top = 210
Width = 2220
Begin ComboBox Combo1
Height = 300
Index = 3
Left = 1155
Style = 2 'Dropdown List
TabIndex = 10
Top = 945
Width = 960
End
Begin ComboBox Combo1
Height = 300
Index = 2
Left = 105
Style = 2 'Dropdown List
TabIndex = 9
Top = 945
Width = 960
End
Begin ComboBox Combo1
Height = 300
Index = 1
Left = 105
Style = 2 'Dropdown List
TabIndex = 8
Top = 525
Width = 2010
End
Begin vsInForm VSInForm1
BarColor = &H00808000&
BarColorInactive= &H00808000&
BarHeight = 30
ButtonsLeft = 0 '0
ButtonsRight = 1 '1
CapColor = &H00FFFFFF&
CapColorInactive= &H00FFFFFF&
CapMultiLine = -1 'True
Caption = "Rollup"
CustomFrame = -1 'True
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
FrameColor = &H00C0C0C0&
FrameColorInactive= &H00C0C0C0&
FrameCorners = 0 'False
FrameSizing = 0 'None
FrameWidth = 1
Index = 0
Left = 705
PictLeft0 = FTOOLBOX.FRX:4F1E
PictLeft1 = FTOOLBOX.FRX:4FE8
PictRight0 = FTOOLBOX.FRX:50B2
Top = -90
End
Begin ComboBox Combo1
Height = 300
Index = 0
Left = 105
Style = 2 'Dropdown List
TabIndex = 7
Top = 120
Width = 2010
End
Begin CommandButton Command1
Caption = "Save"
Height = 345
Index = 3
Left = 1155
TabIndex = 6
Top = 1890
Width = 960
End
Begin CommandButton Command1
Caption = "Text"
Height = 345
Index = 2
Left = 120
TabIndex = 5
Top = 1890
Width = 1050
End
Begin CommandButton Command1
Caption = "Paragraph"
Height = 345
Index = 1
Left = 105
TabIndex = 4
Top = 1470
Width = 1995
End
Begin CommandButton Command1
Caption = "Apply"
Height = 345
Index = 0
Left = 105
TabIndex = 3
Top = 2310
Width = 1995
End
End
Begin vsInForm VSInForm2
BarHeight = 15
ButtonsRight = 3 '3
CapMultiLine = -1 'True
Caption = "Custom Borders"
FrameStyle = 4 'Raised Frame
Index = 0
Left = 2100
PictLeft0 = FTOOLBOX.FRX:5212
PictRight0 = FTOOLBOX.FRX:52DC
PictRight1 = FTOOLBOX.FRX:53A6
PictRight2 = FTOOLBOX.FRX:5470
Top = 3570
End
Begin PictureBox Picture2
Height = 300
Index = 0
Left = 840
Picture = FTOOLBOX.FRX:553A
ScaleHeight = 270
ScaleWidth = 285
TabIndex = 1
Top = 3990
Visible = 0 'False
Width = 312
End
Begin PictureBox Picture1
Height = 315
Index = 0
Left = 390
Picture = FTOOLBOX.FRX:569A
ScaleHeight = 285
ScaleWidth = 315
TabIndex = 0
Top = 3990
Visible = 0 'False
Width = 345
End
Begin Image Pin
Height = 150
Index = 1
Left = 570
Picture = FTOOLBOX.FRX:57FA
Top = 3750
Visible = 0 'False
Width = 150
End
Begin Image Pin
Height = 150
Index = 0
Left = 390
Picture = FTOOLBOX.FRX:58C4
Top = 3750
Visible = 0 'False
Width = 150
End
End
Option Explicit
Sub Form_Load ()
Combo1(0).AddItem "Arial"
Combo1(0).AddItem "Courier"
Combo1(1).AddItem "Normal"
Combo1(1).AddItem "Bold"
Combo1(2).AddItem "8.25"
Combo1(2).AddItem "12"
Combo1(3).AddItem "points"
Combo1(3).AddItem "twips"
Combo1(0).ListIndex = 0
Combo1(1).ListIndex = 0
Combo1(2).ListIndex = 0
Combo1(3).ListIndex = 0
End Sub
Sub VSInForm1_ClickRButton (Index As Integer, Button As Integer)
If Picture3.Height = 3270 Then
Picture3.Height = 470
VSinform1(0).PictRight0 = Picture2(0)
Else
Picture3.Height = 3270
VSinform1(0).PictRight0 = Picture1(0)
End If
End Sub
